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About thisbook 

The programs in this book are 
written in a standard version of 
BASIC and there are conversion 
lines to type in for most of the main 
types of home computers. Look 
down the left-hand side of the 
program for the symbol for your 
computer and then look at the list of 
changes for the correct version of 
that line. The symbols for the various 
computers are as follows: 

A Commodore 64 and VIC 20 

•BBC and Electron 

O Spectrum 

• Apple 

m TRS-80 (extended BASIC version) 

About the games 

The games in this book are very 
simple. They are intended to help 
you get used to your computer and 
to the BASIC language by typing in 
listings, debugging them and seeing 
how they work. The programs do 
not contain graphics or sound as 
these vary so much from computer 
to computer J but you can try adding 
these, * 

You can change and adapt the 
games as much as you like. There 
are suggestions for ways of doing 
this next to each program and you 
can experiment with your own ideas 
as wellp This way you can use the 
games in this book as a basis for 
longer, more complicated games of 
your own. 



Typing and running the -. 
programs 

Remember^ even short programs 
can be quite difficult and time- 
consuming to type in correctly. 
Check each line as you go. It is so 
easy to make mistakes, even if you 
are quite experienced. When you 
have typed in the whole listing, 
check it again, making sure you 
haven't missed any lines, spaces or 
punctuation. 

To start the gamej type RUN. Read 
the introduction to the game first so 
that you have some idea of what you 
are supposed to do before you start. 
If the program doesn't work 
properly, it is quite likely that there 
is a mistake in it somewhere, so LIST 
the program and check again. 

When the game is over, the 
computer may ask if you want to 
play again or say something like 
BREAK in 200, in which case you 
must type RUN to play again. 

Changing the speed 

Some games depend on the speed 
of both your reactions and your 
computer. You may find you need to 
adjust the speed. You will find 
instructions for doing this next to the 
program listing. 
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Spueyes 



10 m )[(9)!Diii yi9) 

20 LET P=0 

30 FOR 1=1 TO 9 

40 mm 340!LET )(tI)=N+3 

50 GDSUB MOsLET Y{I)*3 o 

60 NEIT I 
70 EOSUB 360 
80 GOSIJB 310 
9a GOSUB 340 
100 LET rt=N:GOSLlB 340 
110 LET K(n)=)(tH)+SBN(N-5,n 
120 GOSUB 360 
130 GDSUB 310 
•aHO CLSiPfilNT 

150 PRINT "WHICH NtlMBEfi MOVED" 
liO INPUT A 

170 IF AOM THEN GOTO 250 
►A130 CLSjPRINT 

190 PRINT '^H£LL SPIEDf"^ 
200 LET P=P+I 

210 PfilNT ^'VOU m HAVE "iP;"^ POINTS" 
30 PRINT! PRINT "PRESS ft KEY'^ 
230 GDSUB 31 & ' ' ' 

240 GOTO 30 
' •i250 CLS;PRINT:PRINT ^WRONG - END OF EO 
2iO PRINT "CORRECT ANSWER WAS "jW 
270 PRINT "YOU SCORED ^P;^^ POINTS" 
280 PRINT "ANOTHER 60? (Y/N)" 
290 JNPyT A$JlF AI^^'Y" THEN RliN 
300 STOP 
••A310 LET IMMKEV* 

320 IF 1*=:"" THEN GOTO 310 
330 RETURN 
^ 2:sB340 LET N=INT[RNDtnif9)fl 
350 RETURN 
•A360 ELS 

370 FOR 1=1 TO 9 
ies«»A380 PRIM TAfii)[lI),ViI))fSTR*(n 

- 390 mi I 

m RETURN ~~ 



See if you can work out 

a high-score routine 
toi this gam&r 



If you thinkyou're a good spy^ try thisx 

The computer will pritit the nimibers 1 to 9 on your 
screen. Watch them like a hawk while you press a key {any 
one will do ) . One of them moves , but w hich? When you 
think you know, press a key again and tell the computer. 

Bet y GUI powers of observation aren't as good as you 
thought. 

How the program works 

LO: Sets up sloTage space for poaitioiis of numbers. 



ED: Sets variable foi score to zero, 

30-60: Choose positions for the nmnbers. 

70: Goes to subroutine to prut the numbers. 

80: Goes to subroutine to wait for key press. 

90-100; Goto subroutine to choose one of the numbers 
and call it M» 

IID: Chooses left or right move. 

130: Goes to subroutine which prints numbers. 

130: Goes to subroutine to wait for key pre^. 

140-1 BD: Clears screen. Prints message. 

160: Gets number from von. 

170: If you are wrong, program jumps to message at 

uneeeo. 

180^1 90: Clears screen and prints message . 

ZOO-ZIO: Increase score and print it out. 

220-230: Pmit message and go to subroutine which 
waits for key press. 

240: Goes back fornext go. 

250- 300 : Print messages if you were wrong and ask if 
you want another go. 

310-330: Subroutme to wait for key press. 

340-350: Subroutine to choose random number 
between 1 and 9. 

3G0'4OO: Subroutine to print numbers at the chosen 
positions on the screen. 



Conversion lines 

1140,180,250,360 Replace CLS with HOME 

.140,ia0f350,3i0 ft&place CLS with PRINT ZmHW} 

r310 LET U^IKKEynO) 

»310 1*=""!IF PEEK(-li384)>127 THEN SET I* 

.310&ET I* 

S340 Replace RNDU) with RND 

\m LET W=RNDl9f 

i3fiO FRi/^T fiT nn,ni>|STRi[il 

fc3B0 VTflBtVdDiHTflBlKUHjPRM STRId) 

^380 PRINT CHR$(l9}iFDR LL-l TO i^iniPRI«l:NEn! 

PRINT TABUdDiSTRtUl 
1380 PfiI«T« lf(I)*32+)[(n,STRI[I)^ 
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R mission most secret and desperately dangerous must be undertaken this very night 
-JbyyoiL 

You must cross a closely watched section of enemy territory and return, avoiding 
their gigantic and very powerful searchlight. There are rocks, bushes and other 
obstacles to hide behind, but there are no second chances - once they've seen you, 
you've had it. Y^en you have completed one mission successfully, there is another, 
even more difficult, to undertake. Keep going, we are all depending on your success. 

Use key M to move right and N to move left. To complete one mission you must go 
right across from left to right and back again. 



10 BDSUB 450 

20 LET A^hLET E=[);L£T S=0 
•a3D CLS 

40 LET Miiil V=12tLET B*=Ai(fl) 
50 BOSUB 380 

60 LET F=OjLET N=0:LET NN=D:60SLIE 340 
70 LET L=0:LET C=0;LET TC=10jLET C1=0 

••aso let lumm 

90 IF If="N" then let NN=N-i 

100 IF U=^r THEN LET M^m 

110 IF NN>19 THEN LET NN=t9 . 

120 If NW<0 THEN LET NN=() 

130 IF NN=19 AND F=0 THE^ LET F=l 

140 IF NN=0 AND F=l THEN LET F=2 

150 GOSUB 340 

160 If HOm THEN LET S=S+1 

170 LET K=NNfLET G=S+1 

IBO BOSUB 400 
^190 If f1ID$[ft*{ft),N+l,l)=^' ' m L=l THEN GDTO 
•200 FOR T^l TO 50:NEXT T 

210 IF F<2 THEN BOTO 80 



How the program works 

10: Goes to snbaroudne which reads in 
data,. 

20^ Sets up variables. 

40-50: Pxkii obstacles, 

$0-70: N is player's position. NN is new 
position. 

80: Looks fot hey pre^. 

90: If key press is N (left)] new position 
is N minus 1 . If it is M (right), new 

position b Npliis 1^ 

100"120: Stop player moving offends. 

130-14D: F is set to 1 when player 

reaches right-hand side and 2 when 
left-hand side is reached again. 



240 



Can yott work out how 
to make the light stay 

on for longer? 



Perhaps you could replace 

the obstacles, ^howu in 

this listing as = , with 

graphics symbols to 

repiesenttzees, rocks, 

holldings or anything el^e 

you like. 




1 50: Goe« to subroutine to move player. 

1 60: If player haet moved, S is in<:reased. 

170: Lets player position equal new 
poieition and increases G by 1. G acts as 
a timer, increasing all the time whether 
o; not tifie player moves. 

I SO: Goen to subroutine which turns 
light on and off. 

190: Checks if player is below a space 
when the light is on and if so goes to 
losing message . 

200: Pause 

210: If player hasn't returned to left- 
hand side , then goes bach to look for 
another key press. 
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Z20 
230 
240 
250 
260 
270 
2B0 
Z?0 
300 
310 
320 
330 
340 
350 
360 
370 
VSA3S0 
390 
400 

5S»4tO 
420 

s:)t"430 

440 

s>450 



LET A=ft+1:IF A=8 THEN LET ft=7 

GOTO 30 

LET )(=4:L£T y=J:LET Bi^'m HAVE BEEN S££N^ 

SQSUB 330: PRINT 

PRINT '^VOU BCQRED ";INT(iA-l+S/G)*100) 

PRINT:PRINT "ANOTHER GO? (Y/Nt 

INPUT G$:IF C$=^y" THEN RUN 

PRINT "BYE...,,":STOP 

LET Y^3:LET MO:LET U^'V 

GQSUB 38Df RETURN 

LET )(^0;L£T y=3!LET fl$=^' 

SOSUB 380: RETURN 

LET !(=N:L£T y=13:LET B$-' 

GOBUB 3B0 

LET )l=NN!LET fl*=^"S" 

BOSUB 380: RETURN 

PfiJNT TAB[)[,y)?B* 

RETURN 

IF L=l THEN LET C=m 

IF £;=TC THEN LET L=OjLET C=0:LET TC=IfJT(RND(l)*B+(12-ft) );BDSUB 320 

IF L=0 THEN LET Cl=Ci+i 

IF C1=TC THEN LET L=1:L£T G1=0:LET TC=iNT[RN!3(U*10+<e-A)):GOSLJfl 300 

RETURN 

DIM ft$[7) 

FDR 1=1 TO 7iREftU ftKDiNEn [ 

RETURN 





Add an alajm sound fox 
when play ejT Is seeiL , 



220: Increases level of di^cnlty . 

230: Goes back to print new obstacles. 

240-Z90: Print losmg message dnd score 
and ask if player wants another go. 

300-310; Print searchlight. 

320-330; Turn seaiehlight off- 

340-370: Subroutiae which alters 
player^s position. 

380-390: Suhroiitine which prints at 
position X,Y on screen. 

400''440: Subroutine which determinoE 
length of time light is on and off, 

450»470: Subroutine which reads in 
data. 

480-540: Data lines. 




Tou could make the game 

easier by giving the player a 

second chance. Can you think 

how to do this? 



Conversion lines 




• 3D HOnE 

A30 PftlWT CHR*n47) 

irm LET It=IMy*(OI 

ABO GET I* " ' . 

•80 [*='"'!IF PE£X[-163B4)M27 THEN 6ET IJ 

^m IF fl$[fl,Ntl) = " " m L=l THEW GOTO 540 

3^80 PRINT AT Y,KjB* 

•380 VTABfY};HTf;B{fH)?PRINT B| 

AM PRINT CHRl(l?hFOR LL'l TD VjPRIHT:NEXT:PRINT TflBn);BI 

■ 380 PR1NT« Yi3:S+](TB$; 

2^10,430 R^liCi ftNDd) with RND 

■410,430 Replace mH) with RND(O) 

^4S0 m ftl(7,20) 

Sfc-Speed 15 controlled by line 200 

For BBC and Electr&n -^an^s to FDR T=l TO iSOiNHT ■ 



^ 





^^^j^^ 




g 


^^^■B 






r«WJ 


>v 


w^m 


^ 


§ 


^^^^B^ 


!Sv. J 




You axe in control of Robospy- aunique remote-operation tracking 
device which secretly follows enemy agents. You receive details of 
an agent's movements through the streets - whether he turns left or 
right- and you must copy these movements exactly when you send 
signals to Robospy , so that it can stay in touch with the agent. 

Unfortunately the agent knows that Robospy is following him* He 
makes your job harder the longer it keeps up. He has also managed to 
tamper with your signalling device, re-arranging the keys in an attempt 
to confuse you. This means that you press L (for left) with your right 
hand and R (for right) with your left. Can you stick with him, or willhe 
shake you off? 



Wii^^- 



Can yon malce the 
coropatex ask the player's ^ 
name when a new high 
score is reached? 




LO LET SP=0.3 
•A 20 CLS 
30 LET H=^0 

40 LET K=0:LET B=0;L£T 1=1 
50 PRINT ")» ROBGSPV <«"!PR1NT 
iO PRINT "PRESS B TO GO" 
•♦A 70 LET C*=II^KEVI 

BO IF CtO^B^' THEN SOTO 70 
•A90 CLSiPRINTjpRINT 

100 IF K=5 THEN LET L=L+hLET K=() 
no LET 11*=^" 
120 LET C*="" 
m FOR T=l TD L u 
ObHO LET N=RND(1) 

150 IF N>=0.5 THEN PRINT "LEFT"!LET l1t=Ht+"L^ 
160 IF N<0.5 IHiH PRINT "fiJGHT^':LET HI=M*f"R^' 
170 NEXT T 
180 LET t(=K+i 
m FOR D=] TD 200#L*SP 
••A200 LET C$=INKEyi 
210 mi D 
•AZ20 CLSiPRJNTiPRINT 
230 LET E=0 

240 PRINT "WHAT WERE THE DIRECTIONS" 
250 FOR T=l TO L 
260 PRINT "^"j 
|*«4270 LET C*=IN!(Ey$ 

280 IF myr ms cio'i^* then qotq 270 

290 PRINT CI 

IF zH>nmm,i,i) thew let £=^1 

NEXT T 

IF E=0 T4EN LET B=S+L 

IF g>=H THEN LET H=S 

IF E=i THEN PRINT '^VOU LOST HIHl SOME SPV!" 

PRINT "SCORE = -^fS 

PRINT "HIGH SCORE = ^H 

IF E=l THEN GOTO 40 

FOR M TO 500*SP 



310 
320 
330 
340 
350 
360 
370 

3eo 

390 

400 



NEU D 
60TD 90 



Conversion lines 

• 20,90^220 Replace CLS with HOHE 
A20,9O,22O Replace CLS with PRINT CHR*(1.4?) 

• 70,200,270 LET Ct=If^KE¥i[0) 

• 70,200^270 Ct="MF PEEK[-li3S4J>127 THEfi BET H 

A 70,200,270 GET CI 

s^l40 LET N=RND 

■ 140 LET N=RND(0) 

O3G0 IF CJOMia) THEN LET E=l 



How it works 

30-40: Set up vaiiables. L is KittirLbeir 
of words printed on screen. K counts 
how many times L ^words have been 
printed. 

GO-SO: Flint message atui wait fox 
key press lo stajrt, 

90: Clears screen and leaves Z empty 
lines, 

1 00: If K is 5^ value of t is increased 
by L axidl K 9et tQzero. 

110-120: Set up two empty string 
variables. 

130-170: Loop round L time« 
choosing sequence of lefts and 
rights randomly, print them and 
store them up, M$. 

1 SO: Increases K by 1 . 

190-210: Pause far player to see 
words, Oets longer for more words- 

230: Error flag - will be set to 1 if 
player makes a mistake. 

2 50: Staffs loop to get and check 

answers. 

260-270: Print prompt, get a key 
press and put it in C$. 

2B0: If key press notLarR, goes 
back for another^ 

30O: Checks if letter in CS matches 

appropriate letter in MS and sets 
error flag if not 

320: Adds to score if no error* 

330: Sels new high score if 
necessary. 

340: Prints message if error made. 

350-360: Print scorea. 

370: Goes back for new game. 

330-390: Pause to see score, 

400: Goes back for next go. 

Line 10 controls the 

speed of the game. Change this 

number as follows: 

Spectrom 0.2, VIC 20 0.4, 

Electron 0.6, BBC 1, 

Apple 0.1. Whichever 

compnter you are 

using, the lower the 

number^ the faster the 

game. Try speeding it 

up and see how good 

you ajre. 




SpuQTest 



As a new recmit at Spy School, you've a lot of Spy Q tests to pass if you are to move up 
through the Grades. You start as lowest of the low - a Grade 5 Trainee Spy. Yourgoal 
is to reach the top and become a Grade 1 VIS"^ and even achieve the ultiiaate accolade: 
the Super Spy Award. 

In each Spy Q T est , you are given ten positions on your computer screen. You are 
then given nuitibers between 1 and 100. Your aim is to put these numbers in order into 
the ten positions, with the lowest in position 1 and the highest in 10. 

You are allowed to discard some numbers if they won't fit by pressing D. The number 
of numbers you are allowed to discard is the same as the number of your grade. 



OlO m NdOiDIH Nlf5) ^ 

•A20 CLS 

30 60SUE 510 

40 LET «^"" 

50 LET D=5 

60 LET G=0 

70 FOR 1=1 TD lOiLET N(I)=0!NOT I 

aO LET 1=1 

90 GOSUB m 

mmO() LET t1=]NT(RND(U*99fl) 

110 PRINTiPflINT "WHERE WILL m PUT 

i20 PRINTjD^PUT H 

130 IF Pi="D" AND G<D THEN LET G=Gfl:50TD 90 

HO IF P*=^"D" THEN PRINT "VOU CAN'TI'jGOTO 12 

150 LET P=l^fiL(P*) 

160 IF P<i OR P>10 THEN GOTO 120 



Can yon change the 
noifiber of positions 

from 10 to 15? 



's« 





Change the titles 
if yoii like. 



Very important Spy 



How the program works 

1 0: Sets aside storage space f oi 
anays. 

20: Cl^aiG screen. 



30: Goes to subroutine which readfi 
data to put in airay NS(). 

40 : Sets W$ to empty string. 

50: Sets grade to S for stait 

60: G is numhei of di^ards used. 

70: Puts zezoE in all 10 positions for 
start. 

80: Counts numbers player has 
positioned. 

90: Goes to subroutine which prints 
your status, the numbers 1 to 10 and 
any numJbers already in those 
positions, 

lOO; Chooses a number between 1 
and 100. 

110-120: Print number and find out 
where you want to put it 

130-140: Check if you pressed D and 
then whether or aot you are allowed 
to discard. 

1 50: Works out niunencal value of 
your input 

l60:Hejects if not between I and 10, 




170 IF N(P)>0 THEN PRINT ^'AIREADV FOLL^iSOTO 120 

180 LET N(P)=H 

190 LET f=0 

200 FOR L=P TO 10 

2iO JF MLXM ftND NiDOO THEN LET F=l 

220 NEXT L 

230 FOR L=l TO P 

240 IF N(L)>H AND N(L)<>0 THEN LET F=l 

250 NEU L 

260 IF F=l THEN GOTO 360 

m LET l=]+l!lF lai THEN 6DT0 90 

230 LET D=D-1:IF D=0 THEN GOTO 330 

290 PRINT "WELL DONE, GO TO EftflDE ";D 

30O PRINT: PRII^T "YOU ARE NOW A ^;N*(D) 

310 LET Wt="" 

320 BQTO m 

330 PftJI^T "TERRIFIC - YOU Wi REACHED^^ 

340 PRINT -THE BRADE OF SUPER SPY'^ 

350 STOP 

3i0 PRINT "WRONG! NOT GOOD ENOUGH' 

370 PRINTjPRINT "YOU ARE STILL A "; 

380 PRINT NKD) 

390 LET WI='STILL^^ 

400 printjprint "dd m mi to try again? (v/n)" 

4i0 INPUT A$:IF At="Y^ THEN GOTO hd 
420 STOP 
►A430 CLS 

440 PRINT:PfiINT "YDU ARE "jWI;" A ^'jNJiD) 

450 PRINT 

m m j=i TO 10 • 

470 PRINT J; 

480 IF MJ)>0 THEN PRINT N(J)j 
490 PfllNTfNEH J 
500 RETURN 

510 FOR 1=1 TO 5;R£AD NItl) 
520 NEKT [ 
' 530 RETURN 
540 DATA "VIS\"SPV"/'JUNIOR SPY" 
550 DATA ^'SPYING ASSISTANT%nfiAINEE SPY" 



1 71^: Reiects if position already used. 

1 80 1 Puts number in poaitloiL you 
wanted. 

ld0-22(>; Check all the positions 
above the one you said to see if there 
is a lo w^r nimiber aire ady in one of 
them. Set F to 1 if theire is. 

230-250: Check positions below and 
set F to 1 if there is a highei: niunber 
already in one of them. 

Z60: If position is wrong, goes dovm 
inrogram to tell you so. 

270: Increases counter and goes 
back foi another number- 

280-300: Change D to next grade and 
print me^^^e. (Goes to Super Spy if 
DisO,) 

310: Sets W$ to empty string. 

320: Goes to '4ry again" me&sage- 

330-350^ Super Spy message. 

360- 3S0: Print losing message. 

390: Sets W$ to ''still". 

400-420^ Find ont if you want to try 
again, if not stop game. 

430-500; Sobrontine which prints 

message and numbers. 

510-530: Sobrontine which reads 
names of grades into array N$. 

540-5S0: Data. 



Conversion lines 


J^sflO DIM NilO)!DIf1 N$(5,16) 


•20t430 Replace CLS with HOME 


A 20,430 Replace CLS with PRINT CKR*(I47) 


^^100 LET M=INT(RND*99+1) 


■ 100 LET H=RND(99) 




Secret nessage maher 

Use this program to send coded messages to your friends. They'll need a computer to 
decode them, but not necessarily the same type as yours. <They 11 need a copy of the 
program too don't forget.) They can decode your messages and then send coded 
messages back to you. 

Howthe program works 




Yon could set up a Spy 

Network among your 

computer-owning 

friends. 




20 
30 
40 
50 
^0 
70 
80 
90 
lOO 

no 

120 

■3:si3o 
m 

150 
liO 

170 

lao 

190 
20O 
210 
220 
O230 



CODE A MESSAGE" 

DECODE fi MESSASE" 



O250 
260 



CLSjPRINTiPRINT "SECRET MESSAGE MAKER" 

PRINT "====^===^=====« 

PRINIi PRINT ^^DO you WANT TQ:" 

PRINT 

PRINT " 1. 

PRINT "OR 2. 

PRINTtPRINT 

PRINT "ENTER NUMBER': INPUT A 

IF M THEN EOSUS i20 

IF fl=2 THEN GOSUB 210 

GOTO 30 

LET CI='CODED";GQSUB 400 

LET X=JNT(ftND(l)*25fn 

LET m='r'm 

GOSUB 310:GDSUB 420 

LET Ht=CHRtaf64)+l1t 

IF LE.N(Ht)/2=INTtL£NiMt)/2) THEN SOSlil 450 

PRINT "THE CODED KESSAGE ISj" 

PRINT rtf 

RETURN 

LET C*="D£CODEfi":GOSUB 400 

IF LEN(HI)/2=!NT(L£N(M*)/2J THEN GOSUB 450 

LET K*=LEFTS(HI,1) 

LET H*=RIGHT*(M*,L£NiM*)-l) 

LET X=ASC(KI)-i4 

LET X=-)[;GDSUB 420 



10-80: Print *'tneiiii" and ask whetliqr 
coding or decoding required. 

90- 1 00 : Go to relevant Etubroutine. 

1 1 D^ Goe3 back to menu agaiiL 

120-200^ CODING SUBROUTINE 
120: Goes to subroutine to ask for 
message. 

130; Chooses antonnt to shift letters and ^ 
sloresitinX. 

140: Adds a letter In ca;se first word is 
only one character. 

150: Goes to subroutines to shift 
messages X letters along alphabet and 
then reverse them. 

1 60: Adds letter to message to tell 
decoder subroutine what the value of X is. 

1 JO: Checks if message has even 
number of characters. If so, goes to 
subroutine to swap letters in each pair. 

210-300: DECODING SUBROUTINE 
210: Goes to subroutine to ask for 
message. 

220r If message contains an even 
number of letters then swap them 
round, 

230-240: Takeoff first letter. (This is the 
one added at line 1 60 to show amount of 
shift.) 

250: Works out the value of X. 

260: Changes direction of shift and goes 
to subroutine which reverses letters. 



D7DQ GMCNT QFRATQ ENS 
NTJNNEK 



^EAUFVTUSF CUPU OPT 
JJTPSGC 



DYDQSGQ UD NHOSGC NKS 

GZES 



KFCDR 



ZMEBF VUBSJ 



AVFZHOTIDUBXTT 
FOPFNPTG 





^I^^BH^H 




^^1 ^270 GOGUB 3lO:H$=RIGHTimf,LEN(!1(}-t) 
^^1 290 mm nHE DECODED hESSABE IS;" 


270: Goes to subroutine which shifts 
letters through alphabet. Takes &isi 
letter off. 


H 


^^H 290 Pf^INT m 

^^H 300 RETURN 

^^H 310 LET 

^^H 320 FDR 1=1 TO LEN(Hf) 

^^1 e:^330 let C!l=HIDf(htl,I,ll:LET MSC(Q£) 

^^H 340 IF N=32 THEN EOTO 380 

^^H 350 LET N=M+X 

^^H 3^0 IF N>9a THEN LET N=N-26 


310-390: SHU TING SUBROUTINE 
310: Puts message in H$. 

320: Stall of loop, which takes lettesrai 

f]romN$ one al a time. 

330: Changes letter into computer's 
code number. 

340: If a space, keep the same. 


1 


^^H 370 If N(65 THEN LET N=N^26 


350: Adds T^ue of X to letter code. 


^^^1 


^^H 330 LET N$-N(4-CHR^(N]:^E)(T I 

^^M 390 LET t1$=N$: RETURN 


3GO-370r Adju^ code number if It goes 
beyond the code for Z or before A. 


^M 


^^H 400 PRIf^T "WHAT IS THE MESSAGE TO BE ';CI 
^^H 410 INPUT H4:RETURN 


3 30 : Adds new letter to N$ and goes 
back to begimung of loop. 


^M 


^^H 420 LET hll="'jrOR I=LEf^(H$) TO 1 STEP -1 

^^H ^m let ^l=mt1I!}$(K$,I,l):NE)(T I 


390: Wheu all letters have been shifted, 
thenew message ifiput in MS. 


^M 


^^H 440 LET NI=N$: RETURN 
^^H 450 LET NI='^^LET L=LENm$) 


400-410: Subroutine which asks for a 
message. 


^M 


^^H 460 FOR M TO LEtl(Nfi-l STEP 2 
^^H 4^470 LET N^74$+l^IDI(f1S,Hl,I} 


420-440: Subroutine which reverses 
letters. 


^M 


^^H ^4a0 LET N$=miiIDI(l1$,I,n 
I^H 490 mi hLET N$=NI^ RETURN 


450-490: Subroutine which takes pairs 
of letters from message in turn and 
switches the two letters in each pair 
round. 


1 


^H ^ ■ -V, ;^>^ 


^^^^1 y/''^ Good spies usually test ^^ 7''^ ^3^ 
^^^^^1 / that their messages \^ C^^^^-"""^^ y 
^^^^H V decode propeily be foi^ ^y XT / 
^^^^H X^^^ they send them. ^/^"^ T ^ 


::> 


1 


^^1 Conversion lines 


. 


^M 


^^H •lO Replace CLS with HOKE 


2:^250 LET )[=C0D£(Kt)"i4 


^^H 


^^■^-.^^ A 10 Replace CLS with PRINT CHRtiHJ) 


2:^270 GDSUB 310:LET H$=Mtf2 TO ) 


^^^1 


^^■j^?] ^m LET K=IhlT(RND«25)+l 


0^330 LET Gt=H$(IJ:LET N=C0DE1E$} f^^^ 


^^H^ 


^^■r^Sl "130 LET mmm) 


^m LET Nt=Nt+M$(I)!NE;(T I J^^^ 


^^^H 


^^■7 s^^230 LET K$mU) 


O470 LET N*=N*tl1JiI+n ^(^ L 


^^^n 


^^^^Z?<Z *^^^ LET H$=nt(2 TO J 


^m LET Nt=N*+HI(ri ' %^ /x 


^H 


^^^^^^^^^^r VVKNDKHN SQRGDNSD 




^H 






/mFANYCRUGFNUOVFS ^^r^ ^^^^H 


^^^^^^^^^^ ^^^^B ^^^^^^^^^^^^ ^^H Can yoa work out what ^^H 

^^^^^r ^ ^^^^^^^^I^^^^^H^^^B ^^B they are saying? ^^H 

^^^^^^ ^ M BVJIKPOVGOVOGOH ^1 ^^^^^^ ^^^H 







Bendezuous 

Yoiur mission is a complicated one, so 
read these instructions carefully. 

You must collect a case from a locker 
at the station, hand it over to your contact 
and get back to the airport before the last 
plane takes off (your computer will tell 
you what time this is). 

Your computer will tell you where your 
contact will be at what time. You must 
leave a message at that place, before he 
gets there, telling him where and when 
you will meet him to hand over the case. 

You must find out the password before 
you meet him, and make sure you are not 
more than 1 5 minutes late. 

Before you can get the case, you must 
find the key to the locker and also its 
number. Unfortunately the key is in the 
hands of enemy agents, whose HQ is at 
the Hotel. You must find an enemy spy 
and follow him, hoping he will be 
careless enough to drop the key {and of 
course that he won^t see you). 

The map shows you the places you can 
go to and the list below shows the words 
you can use in the game. 



Now eat the book. 



AIRPORT 



MU can go 



' You might need to make a note of 

the password and locK^T numbex 

(in code of course). 




Words you can use 

TIME - Tells you what time it is. 

MOVE — Asks you where to. You can go 
.. anywhere marked on the map. 

SAY - The password. 

EXAMINE -Anything. (Examine the key 
to get the number.) 

READ - A message. 

OPEN - The locker. 



FOLLOW - An enemy spy. 
WAIT - For any length of time. 
LEAVE - A message^ 

SEARCH - Anywhere (to find the key). 

□ 

HELP - Reminds you of time and place of 
meeting. 

You can also use any of the names in 
capital letters on the map. 



Change the passwords to 

anything you like. 



You can change the names of the 
places too if you want to. 



BR\ DCE 



y.^^"^^ ' ' 

X 




CANAL 



Hotel 



CHURCH 



"T t T r~^~~T" 




H ytiu are usinti 

A VIC 20, yoti Mill 
Jieed eUrs Mitory 
J-ar tNis game. 



2^10 D£F FNA[n=IHT[fiNEHJ)#Xm 

20 6DSUB 1010:BOSUB 1130 

30 LET P=l!LET V=0[LET MjLET EP=10 

40 LET U'OlUT NM=0 

50 LET Si=" 

iO LET B4="" 

•A70 CLSsPPINTsPPIHT "fiEHDEIVDUS' 

80 PRINT "«=«====="■ 

90 LET NH=NW+1 

100 PBINTsPPlNT 

. 110 PRIliT BIlPRiNT 

120 PRIWTiPRlNT "YOtl m AT THE '; 

130 PRINT RfiP) 

UO IF EP=P THEN Pfimi "EHEHY fiUEHT IS H£RE"jLET NE'NEH 

150 IFEPOP THEN LET NE={f 

160 IF P=«P AND FfU=0 THEN PfiI«T "HESSfliiE FDR YOU HERE- 
TO LET FIJ)=0 
iBO LET T1=H+Pf/100 



How the program works 



1 0: Sets up a function to choo^ 
random nimiher between 1 and X. 

20: Go to end of program to r^ad 
in data and set game (initialize). 

30: P, Y and X record player's 
position. EP is enemy position. 

60: B$ is for computer's messages 
to player. 

90; Increases KM (number of 
moirefi). 

1 40 : NE coonts ho w long player is 
in same place as enemy agent. 

laO: Works out the time 
(B = hours, M = minutes) 



1?0 IF F(4}=1 m RKPf^S* AND Uv^Tl M lJ+.15>Tf THEN PRINT TtjLET F(3)=l 1! 
200 IF ?={ m H(FH ftUD F<7)=1 THEN EDTO 870 ^ 

210 PRlNTjPRINTiPRII^T ^«HfiT NEXT' 
220 LET U='' ' - ■ ■ i: 

,230 INPUT i* ' ii 

'240 LET V=0;FDR 1=1 TO 11 ' m 

250 IF »=VI(I) THEN LET V=I 

260 NUT 1 

270 IF y=0 THEN LET W-lS 

280 IF N£=3 AND FNA(10)>3 AND VOl THEN LET Bt="£K£M¥ ftGE^fT SEES YOUrjEOTD 70 



190^200: Work out if mission has 
been completed. 

210*270: Get word from player 
and check lf>r matcli with words 
in memoxy ■ V is number of 
matching word. 



290 IF NH=4 THEt^ PRINT ^VOU ARE CAPTURED' ":STQf 
$300 DN y GOSLIB 360,420, fl<?0,540,57^i40,7J&,73[), 780,310, a20,&70 
310 LET M=«fST:if H>5fl THEN LET H'H-iOiLET H=HH 
320 IF F[2}:=1 AND H)=CH THEN LET Fti^l 
■330 IF H=FH THEN GGTQ BflO 
,340 IF FNA(tO)>9 THEN LET EP>10 
350 GOTO 70 

340 PRlNTsPRlNT "WHERE TO"! INPUT H* 
"370 LET NP'OiFOR 1=1 TO 20 
SflO IF N*=F($(I) THEN LET NP^I 
390 NEH I; IF NP=0 THEN BOTO 360 
400 GOStlB 950 
41&LET P=NP: RETURN 
420 LET DT^5 

430 PfilNTiPRlNT "SflV HHfiT": INPUT £f* 

440 IF EP=P THEN LET Bt^'^VatJ ATTRftCTEJ) THE ENEHV fleENtf" [RETURN 
450 IF F{3)=0 THEHf LET B*="NDflO]}V HEARS YDU^jRETURN 
460 IF Q*<>P$ THEN LET Bt="CDNTACT IBNOSES i^OlC'iRETUftN 
470 IF F(6}=1 THEN LET 9i=^'V0U HftDE CONTfiCT - HE TftKES THE CASEi" 
480 LET FtTl^liRETURN 
490 LET DT=5 

SOO FRiNTiPRINT "NHflT 00 YOU HANI TO E^ArtINE":lHPUT Bl 
510 IF GI='CASE' THEN LET Bt="TOP SECRET! ":fi£rURN 
520 IF [!I="KEV'' THEN LET B*'f"fl HUHSER - "+STR*iHL)!RETURN » 
530 LET BI^'NOTHINS SPECIAL ["iRETURN 

540 IF P<>«P DR Fil)=l THEN LET B*='NDTH1NE TO REftDl ":R£TURN ■ 
550 LET BI='A WDflD - '"*?*+" '^ 
560 LET Fa)=hfi£TURN 
370 LET DT=5 
580 IF POU THHN LET Bt=*NDTHlHG ID DPEN'rRETUftN 

■ 590 IF F(5)=0 THEN LET SM^lfOU HAVE flQ KEV": RETURN 
600 PRlNTiPRlNT "HHAT NUflBER LDCKEft'j INPUT VN 

610 IF NLOVN T)1£N LET B*="THE W DOES NOT FIT":RETORN 

m LET B^s'LOCKHR IS DPEfl - TOU HAVE THE Cft&E!"!LET Fi6)=l 

b30 RETURN 

640 LIT DT=:5 

650 IF EPOP THEN LET BS="FOLLDy MHO?'iRETURN 

660 LET NP=FNA(20):60SUB ^SOiLET P=NP 

670 IF FNAtl0t>R THEN LET P=i(P 

6a& IF FNfl<lOJ>7 THEN LET B*='YOU LOST HIJ1 ftFTER A HHlLE^iRETURN 

690 LET EF=P 

700 LET Bt-"¥OU KEPT HlN IN SIBHT^iRETUHN 

710 PfilNTiPRIHT "HUH HflKY MINUTES": INPUT AT 

720 RETURN 

■ 730 PRIHT:PRINT '^WHERE JID YOU WANT TD NEET"; INPUT St 
740 PRINTjpRINT "^HHfiT TINE (NH.HHr 
750 IWPUT U 
760 IF P=CP AND TKEJ AND ff<CH THEN LET Ft2)Tl 

1770 LET DT=5:RETURN 

I 7B0 LET B*=-NDTHIHG HERE":LET DT'IO 

1790 IF P'KP THEN LET Bt^'VOU FOUND fl KEr:LET F(5)«l 

BOO RETURN 
. 010 LET DT=0:LET Bt="TinE IS NDii ■'+STR|[m+"."+STRl(HhRETURN 

e20 LET 0T=5 

B30 IF U=0 THEN fiOTD 860 



2SD-290: Cheek value of NE to see 
if seen by enemy. 

30D: Branches to suhroutind 
depending on word entered. 

310: Increases time* 

330: Checks if player has nm out 
of lime. 

340: Moves enemy back to hotel. 

360-410: MOVE SUBROUTI^^£ 



42&-490: SAYSUBROVTIM! 



500-540: EXAMINE 
SUBROUTINE 



550-570: READ SUBROITTENE 



580'64€; OFENSUBEOimNE 



650-700; FOLLOW SUBROUTINE 



710-720: WAIT SUBROUTINE 



730-770: LEAVE SUBROUTINE 



7^^800: SEARCH SUBROUTINE 



810: TIME SUBROUTINE 



The symbol'^ means 

"to the power of. On 

the VIC 20, CS4 and 

Spectroxn It looks like 

tiiisi t 



945 PftrnTiPRlNT "«£ETmG PUCE IS* 
S55 PRINT Sir AT ^U 
960 GOSUG J 300: RETURN 
m LET DT=0:LET B*="PAflDON''";fl£TlRN 
330 PRINT "TOO LATE ^:STOP 

390 PRimsPRINT "HELL DONE. VOUR MISSION m A SUCCESS:" — 

•?00 LET fL=[FH-HH6Q-n 
910 LET S=INT(j20/Nh+lL/t20M50} 
m PRINT! PRINT "YOUR SPY RftTmE" < 

930 PRINT -IS "rS 
m STOP 

?50 L£T My--If^TnMP'l}y5) 
m LEI NK^NP-StNV 

970 LET D)(=ftBS(^NX}!LET DV=AeS(Y-NY) .- 

m LET K=HK:LET f=NY 
m LET D^SflR(Dr2tDY-'^2: 
1000 LET [)T^I^iT[5*n}:RETUftN 

\m m 1=1 TO 20rREftB RKU 

io3o mr 1 

1040 FOft 1 = 1 TO lUREflO ytaf^NEH 1 

1050 RETURN 

lOiO DATfl "AIRPORT", "&as STGP%"BRIDGE%"CML"/CHUREH" 

1070 BflTA ''fARK"/CAFE"/Bfl«K\"Cl€Hfl"/HQTEL" 

' lOBO BATA "CASIMD","T0WN SeilARE"/'POST DFFlCE"t"POLlCE STATION", "FfliRGROUND" 

1090 DATA "SrflTION°/TDl^N HALL"/EtfBASSY","Gflfil)£hS'/E;flSTL£" 

1100 OATfl "HOVE", "SAr'/EXftniNE", ''READ", 'OP£W\"FQLLOW"/l*ftIT","LEfty£", "SEARCH" 

UIO Dfilfl 'TIME", "HELP' 

1120 PATA -CUSTW, "KIPPER", ")COALA","CftUMPET", •CROSSWORD", 'iANSAROO* 

IJ30 LET H=FNflQ)+a:LET H=0 

■ U40 LET FH^FMAi:f + 14 
"1150 LU CH=FHA!2)*H 

•A1160 aStPRlKTjPRINT 

.1170 LET N£=OiLET TM^CONTACT IS HERE" 
IISO LET fiP^FNAdfi^jlET i(P=FNfl[lB} 
1190 LET EP=FNA[l8}rL£T CP=FNfl[l8i 

■ 1200 FOR 1=1 TO FHAi&) 
1210 READ P$:rt£KT I ^ ' ■ 
1320 LET «L=FNAI9001+99 
1230 PRINT "ft£N&E:VDUS" 
1240 PfilKT """""=-fPRlNT 
■1250 PRINT ^COLLECT MESSAGE FROH" 
1260 PRINT 'THE ";Rt(nPl 
1270 PRINT 'GONTfiCT l*ILL COLLECT" 
1280 PRINT 'FfiOri THE ^fllfCP) 
1290 PRINT "AT "fCHr.OO' 
1300 PRINT "LAST FLIGHT LEAVES" 
1310 PRINT "AT ■jFH;".O0" ^ 
1320 PRINT: PfilNT-pRESS RETUftN T(L CONTINUE" 

1330 INPUT DtjRETURrt 



d20-860: HELP SUBROUTINE 

810: "Word not recognized" 
SUBROUTINE. 

880: "Ann ont of time" message. 

89 0-940 : Print message and score 
forsuccessfnl tnissiott. Rating 
depends on number of moves 
made and time lefl- 



^50-1000: Subroutine which 
works out distance moved and 
time taken by player's move. 



1010-1050: Snbrontine which 
reads in data. 



Lines 1010-1320 are 
called the 

"initialization" 

section of the 

program. 



1060-1 120; Data line«^. 



1 130: Chooses starting time. 
1 1 40: Chooses time of last flight 

11 SO; Chooaes time for contact to 
collect message. 

1180-1190^ Choose positions for 
message^ key, enemy and where 
contact will collect. 

1200-1210: Choose password, 

1220: Choose locker number. 

12 30- 1 320: Pzint introduction to 
game. 



Conversion lines 



2^10 DEF FNfl[I) = IftTiflNDinH" / 

■ 10 leave out this line 

•70^niiO Replace CLS Mith HDhE 

A70,IUO Replace tlS dith PRINT CHRKlUl 

^235 IF LEli{f*)<7 THEN LET I$=H^" ':GOT0 235 

2^-300 6DSUB 340t(V=l)M2Of(li=2J+4m[V=3)+S^OHVMM57O*fV=5KA4(?MV^i) . ' 

^710MV=7)+730»(y=fll+780flV=¥)*810*iV=10)tg;0+(V=n]+a70*fV=I2i 
^m IF LENtNtXM TH£N. LET Nl=NM' ^GOTD 3i5 
2^735 IF LENIStKM THEN LET S*^SI+" 'iGOTD 735 
^JOIO DIfl fltf20j4}!01« V*[J1,7)!DII1 Ff7) ^ 

■?aO, 340, iAO,A70,ieO, 1130, 1140, 1150,1150, 1190,1200,1220 Peplice FNflf } tiith ANHj 
e.g. FI4At20) becQits RND[20) 



See if you can work through 

e ach subroutine fuiding out 

what all the lines do. 



The variables F(nnmber) are 
"flags". F(S), for instance, - 1 
if you have the key and if 
you don't. See if you can find 
the other flag$ ^^nd work out 
what they are for. 



Clorse Coder 

If you want to be a re^y successful spy, 
you need to know how to send, receive 
and, of course, intercept messages in 
Morse Code. This program will help yon 
leam. If you have never used Morse 
Code before, you will need to make 
yourself a chart of letters and their 
Morse eqnuvalents. Use lines 400-450 of 
the program to do this. They show the 
Morse code for each letter of the 
alphabet in order. 



10 

30 

40 
50 
h^ 
70 
80 
•a 90 
100 
110 
130 

40 
50 

Ihi} 

170 
180 
190 
ZOO 
210 
220 



•a 



&QSUS 370 

CLS 

LET S=30 

PRJNTiPfilWl "HORSE TESTER" 

PRINT! PRiN["HHftT LEVEL ?" 

PRlNTiPRIiT Ml-FftST)" 

PRINT "(5=SL0W)' 

INPUT P;LET P=P*fi 

CLS 

PRlNTjPftlNT "GET READY^' 

FOR T=l TO 20tS!HEn T 

eosufi 310 

LET Fl=HtfASC(&*)-A4} 

GDSUB 220 

CLS:PRIHT 

PRINT "TYPE IN KDUfi flOER" 

INPUT U 

IF Sf=Q* THEN FRiNT -CDRRECy 



A6 yoii leam tha 

letters, trv 

covering up the 

chait- 



Speed is controlled by line 

30. For BBC and Electron 

change the value of S to 

1 00. (The lower the 

number Jhe faster the 

program.) 




IF m>ei THEN PRINT "N 
FOR T=f TQ 30#S;HEn T 
GOTO 90 

FDR ]=! TO LEN[F*} 
LET W*=HII}t(Fl,J,l) 



240 JF iy$="/ THEN LET K=l 

250 If Hf="-' THEN LET K=3 

UO BDSUB 330 1 LET K=l 

270 GDSUB 340 

230 NEH J 

290 RETURN 

300 PRINT 
■iCe310 let D*=CKR*[INT(RWD(l)»2i+65H 

320 RETURN 
Oa*A3S0 PRINT TfiBUClO);'^" 

340 FOR T=l TQ PfKiNEH T 
^■•A350 PRINT TflB(10,iO)r ' 

3i0 RETURN 
2^370 DIM HJ(26> 

330 FDR 1=1 TO 26jREftI) MtdJiHEH 

^90 RETURN 

400 DATA ^-^"--. .",'-. -."/-./, 

410 DAT^ \*-."/-.-,'.. ..'/..", 

420 MU '-,-','.-,/,"-"/-.%•■ 

430 tf\U \--/, "--.-",'--/;'-. ^'* 

440 DfiTfi \.'\\.,-\\"' ,"'"-" 

450 



THE ANSWER IS !';0I 




You could try adding a 

ficoxing routine. (The 

Robospy program 

should give you an 

idea of how to do this. ) 



You could try adding 

sounds too, either as well 

as or instead of the 

flashing stars. Hememher 

a dot is a short sound and a 

dash a longer one (3 times 

as long). 



What you have to do 

In Morse Code, eachletter is represented 
by a series of long and short sounds or 
flashes. This program uses a flashing 
star. It will give yon the code for a letter 
and then ask you which it was. You will 
have to watch carefully to pick out the 
long and short flashes and remember 
them. You will see the ctirsor flashlngtoo 
at the left of the screen. Ignore tins it has 
nothing to do with the code. 

How it works 

I ^: Goes to suhroutjne to re ad in data. 

30l Sets speed. 

SO^O: Ask for level you want and 
work out speed of flashes depending 
on what you say. 

110: Pauae 

120: Goes to siil>routine which 
chooses random letter and stores it 

130: Finds the dots and dashes code 
for the letter and puts them in T%, 

140: Goes to subroutines which print 
flaslungstar. 

160-130: Get answer from you* 

IBO- 190: Check if answer is correct 
or not and piint message. 

2QQ-Z lOt Pause then go back for next 

letter. 

220-Z50; Check through length of F$ 
setting K to 1 for dots and 3 for 
dashes. (K sets how long the star 
stays on the screen each time.) 

260-270; Go io suhroutine to print 
star. Con^e back^ set K to 1 , then go 
hack to subroutine at line 340 to 
"prinf ' a space. This gives the gap 
between the dots and dashes. 



Con V6rsio n I i fl 6S ^^^' ^^^° back for next dot or dash. 



16 



/I30 Ltl fl'hKMMIQll-Uh 
m^ LEI HJJ>FKJJ 
2ZS Ef it'' < TK£H GQTn90 

yio LET ^Kmmnm*7i*hii) 
jn&vm(io):Pi?[ifi Twa^)!"*' 

JL:1;(» PRINT [HRfU^ltFOR 1 = 1 ID l&iFlliriri 

SElTrPRIST rfllKftJE'f 
■33&PfilNT* 2*0,'*' , 

fett PRINT ftT l^L*!" ' 
#3S[»VTABU{h]:PRINT U3^m^,'■ *' 
A.ZZIi PRINT ClAllL^liliOR [■! TO bCi]P!llMT[ 

NElTiPRINT rUBrlOt'' ■ 
■ ISO PAIMTI 24^,' ' 
^70 iln Pltl2S4) 



310-320: Subroutine to choose a 
random letter. 

330: rums star on. 

340: Waits for length of time 
depending on K. 

330: Prints space instead of star. 

370-390: Subroutine which reads In 

data. 

400-450: Data lines. 



flnsbiers to puzzles 

Hejte are answers to some of the puzzles 
set in this hook. Your answers may he 
different, hut if they work this doesn't 
matter. Check they are as neat and 
simple as the ones given here though. 



Spy Eyes 

Here is how to add a high score routine. 

15 LET H=0 

215 PRINT "HIGh- SCDfiE ^ "iH 

275 IF P>H THEN LET H=P:P.RINT "THAT IS THE HIGH SCORE" 

290 INPUT ftJ;IF ft*^"Y" THEN 60TG 20 

Searchlight 

This is how to make the light stay on 
longer ... 

430 IF Cl=Tr THEM LET L=hLET Ll=DrL£T TL=INT(RND(i)*10+(8-A);'+10;GOSyB oOO 



. . . and this is how to give the player a 
second chance. 

15 LET N6=0 
255 LET NG=NG+1 
257 If W.2 THEN FOR T-1 TO 200!NEJ[T li^m 30 



C 



Use your computer's 
version of RND. 




Increase this numbet 
for mare than 2 goes. 






HG is a new variable 
which stands for 
"number of goes'\ 



This loop makes a pause 

so you can read the message. 

lK).cjease the nmtkhQi: in it 

fojr a longer panse. 



Robospy 

These lines will make the computer ask 
for the player's name when a new high 
score is reached. 

25 LET HI^'^NOBODY" 
330 Tike out this line 
365 IF E=l AND S>H THEN LET H=SjEOSU& 410 
410 PRINT "THAT IS THE HIGH SCOREJ^^ 
420 PRIMT "PLEASE TVPE VDUR WAME" 
m imi H*: RETURN 

Spy Q Test 

Bere is how to change the numher of 
positions from 10 to IS. 

10 DIPt N115)!DIM NilSJ 

70^60,200,460 Change the 10 in these lines to 15 



